home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis411.d64 / .rapunzel < (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  8KB  |  244 lines
  1. 2 GOTO920
  2. 10 PRINTTAB(25)"[158][176][192][192][192][192][192][192][192][192][192][192][174]"
  3. 11 PRINTTAB(25)"[158][221] [210][193][208][213][206][218][197][204] [158][221]"
  4. 12 PRINTTAB(25)"[158][173][192][192][192][192][192][192][192][192][192][192][189][144]":RETURN
  5. 13 PRINT"              [196][210][213][197][195][203] [211][208][193][195][197]"
  6. 14 GETE$:IFE$=""THEN14
  7. 15 IFE$=CHR$(32)THENRETURN
  8. 16 GOTO14
  9. 20 POKE53280,0:POKE53281,0: POKE53272,26
  10. 30 FORX=0TO7:READW:POKE10240+X,W:NEXT
  11. 40 FORX=8TO15:POKE10240+X,255:NEXT
  12. 50 FORX=368TO375:POKE10240+X,0:NEXT
  13. 60 DATA36,36,153,126,24,126,153,0
  14. 70 GOSUB350
  15. 80 I=INT(5*RND(1))+1
  16. 90 IFI=1THENX=3
  17. 100 IFI=2THENX=11
  18. 110 IFI=3THENX=20
  19. 120 IFI=4THENX=28
  20. 130 IFI=5THENX=34
  21. 140 TI$="000000"
  22. 150 Y=24:Y1=Y:X1=X
  23. 160 POKE1024+Y*40+X,0:POKE55296+Y*40+X,3
  24. 170 GETE$:IFE$=""THEN170
  25. 180 IFE$="[145]"THENY1=Y-1:X1=X
  26. 190 IFE$=""THENY1=Y+1:X1=X
  27. 200 IFE$="[157]"THENX1=X-1:Y1=Y
  28. 210 IFE$=""THENX1=X+1:Y1=Y
  29. 211 IFE$="*"THEN1200
  30. 220 P=1024+Y1*40+X1
  31. 230 IFPEEK(P)<>1THEN170
  32. 240 POKEP,0:POKEP+54272,3
  33. 250 POKE1024+Y*40+X,1:POKE55296+Y*40+X,7:Y=Y1:X=X1
  34. 260 IFY=0THENR=R+1:GOSUB9300:IFR<RRTHENGOSUB350:GOTO150
  35. 270 IFY=0ANDR=RRTHENGOSUB9200:PRINT"[147]":GOTO290
  36. 280 GOTO170
  37. 290 POKE53272,23
  38. 300 PRINT"[215]IEDER EIN [199]LUECKLICHER [198]LOH !"
  39. 310 PRINT"[211]IE HABEN IN "MID$(TI$,3,2)" MIN:"RIGHT$(TI$,2)" SEC ZU [201]HRER"
  40. 320 PRINT"[210]APUNZEL GEFUNDEN."
  41. 321 PRINT"[210]UNDENANZAHL ";RR:PRINT""
  42. 330 PRINT"[206]OCH EINMAL [[202]/[206]]"
  43. 340 GETE$:IFE$=""THEN340
  44. 341 IFE$="J"THENRESTORE:CLR:GOTO920
  45. 342 IFE$="N"THEN700
  46. 343 GOTO340
  47. 350 PRINT"[147][158].AA..A...A...A...A....A...A...A.A..AA"
  48. 360 PRINT"...AAAAA.AAA.....AAAA.......A..AAAA..AA"
  49. 370 PRINT"...A...A.A.......A..AA......AAA.A....A"
  50. 380 PRINT".AAA..AA.AAAAAA..A.AAA.......A.AAAAAAA"
  51. 390 PRINT".A.AAAA.......A..AAA.A.AAAAA.A...A"
  52. 400 PRINT".A......AA.AAAA......A.A...A.A...A"
  53. 410 PRINT".AAAAAAAA.........AAAA.AAA.AAA..AAA.AAA"
  54. 420 PRINT"...A....AAAAAAA...A......A......A...A.A"
  55. 430 PRINT"...A....A.....A...AAA.AA.AAAAAA.AAAAA.A"
  56. 440 PRINT"...AAAAAAAAAA.AAA......A......A.......A"
  57. 450 PRINT"............A...A....AAAAAA.AAA...AAAAA"
  58. 460 PRINT"...AAAAAAAAAA.AAA....A...A........A"
  59. 470 PRINT"...A..........A......A...AAAAAAA..A"
  60. 480 PRINT"...AA....AAAAAAAAAAA.A.........A..AAAA"
  61. 490 PRINT"...A.....A.........A.A.AAAAAA..A"
  62. 500 PRINT"...AAAA.A..........AAA.A....A..A.AAAAA"
  63. 510 PRINT"......A.A..........A...AAAA.A..A.A"
  64. 520 PRINT"......A.AAAAAAAA...A......A.AAAA.A..AAA"
  65. 530 PRINT"......A........A...AAAAAA.A......A..A.A"
  66. 540 PRINT".AAAAAA....AAA.A........A.AAAAAAAAAAA.A"
  67. 550 PRINT".A....A....A.A.A.AAAAAA.A......A......A"
  68. 560 PRINT".A....A....A.A.A.A....A.A.AAAAAA.AAAA.A"
  69. 570 PRINT".AAA..A....A.AAA.AAAA.AAA.A...A..A..AAA"
  70. 580 PRINT".A.A..AAA..A.A.A.A..A..A..AAA.AA.AA"
  71. 590 PRINT".A.A..A.A..A.A.A.A..A..A....A.A.AAA";
  72. 600 I=INT(5*RND(1))+1
  73. 610 IFI=1THENLL=1225
  74. 620 IFI=2THENLL=1234
  75. 630 IFI=3THENLL=1365
  76. 640 IFI=4THENLL=1451
  77. 650 IFI=5THENLL=1621
  78. 660 POKELL,1:POKELL+54272,7
  79. 670 RETURN
  80. 700 PRINT"[147]"
  81. 710 PRINT"           [194]IS ZUR NAECHSTEN"
  82. 720 PRINT"           [210]APUNZEL-[202]AGD...."
  83. 730 PRINT"                [212]SCHUESS!":FORI=1TO3000:NEXT:SYS64738
  84. 800 PRINT"[147][154]"CHR$(142):POKE53280,0:POKE53281,0
  85. 810 PRINT"         [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  86. 811 [153]"         PEEK                     PEEK"
  87. 812 [153]"         PEEK SYSERKLAERUNG      [1] CONTPEEK"
  88. 813 [153]"         PEEKCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSEPEEK"
  89. 814 [153]"         PEEK SYSSPIELEN         [2] CONTPEEK"
  90. 815 [153]"         PEEK                     PEEK"
  91. 816 [153]"         -TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN< "
  92. 820 [129]I[178]1[164]3:[153]"":[153][163]14)"CLRWAEHLEN SIE !":[130]
  93. 821 [129]I[178]1[164]3:[153][163]14)"ONSYSWAEHLEN SIE":[130]
  94. 825 [161]E$:[139]E$[178]""[167]820
  95. 826 [139]E$[178]"1"[167]840
  96. 827 [139]E$[178]"2"[167]830
  97. 828 [137]825
  98. 830 [153]"LOAD"[199](14)
  99. 831 [153]"     (null)IEVIELE (null)UNDEN WOLLEN"
  100. 832 [133]"     (null)IE SPIELEN  (MAX.10 )";R$:RR[178][197](R$)
  101. 833 [139]RR[179][178]0[176]RR[177]10[167][153]"ONON":R$[178]"":[137]832
  102. 834 [137]20
  103. 840 [153]"LOAD"[199](14):[151]53280,4:[151]53281,4:[141]10
  104. 841 [153]" VALRIGHT$(null)CLOSE(null)(null)STR$VAL(null)(null)VAL(null)CLOSE(null)ATNVAL(null)LENLEFT$VAL(null)CLOSE!"
  105. 842 [153]" (null)OENIGSSOEHNE SIND IM ALLGEMEINEN ZWAR"
  106. 843 [153]" REICH, DAFUER ABER DUMM.STR$ER (null)RINZ,"
  107. 844 [153]" DER MINDESTENS EINMAL PRO (null)OCHE (null)APUN-"
  108. 845 [153]" ZEL BESUCHTE,TRAF EINES (null)AGES AUF SEI-"
  109. 846 [153]" NEM (null)EG ZUM (null)URM EINE BOESE ASCEE.(null)UN"
  110. 847 [153]" HABEN BOESE ASCEEN DIE ATNNGEWOHNHEIT,IM-"
  111. 848 [153]" MER UND UEBERALL ZU BEWEISEN,DASS SIE"
  112. 849 [153]" WIRKLICH BOESE SIND.(null)EISTENS TUN SIE"
  113. 850 [153]" DAS IN ASCORM VON (null)ERWANDLUNGEN.(null)UN TRAF"
  114. 851 [153]" UNSER (null)RINZ ABER EINE ASCEE,DIE NORMA-"
  115. 852 [153]" LERWEISE IM (null)AERCHENARBEITSAMT BE-"
  116. 853 [153]" BESCHAEFTIGT IST UND DESHALB DIE"
  117. 854 [153]" (null)ITUATION AUF DEM ATNRBEITSMARKT FUER"
  118. 855 [153]" (null)ERWANDELTE SEHR GUT KANNTE.":[141]13
  119. 860 [153]"LOAD":[141]10
  120. 861 [153]" (null)M DEM (null)RINZEN EINE LANGWIERIGE (null)M-"
  121. 862 [153]" SCHULUNG ZU ERSPAREN ((null)ERWANDLUNGEN"
  122. 863 [153]" IN ASCROESCHE,(null)ABEN ODER VALSEL SIND TOTAL"
  123. 864 [153]" UEBERLAUFEN),BESCHLOSS DIE ASCEE,IHN IN"
  124. 865 [153]" EINEN ASC(null)(null)LEFT$ ZU VERZAUBERN,UND ZOG IHRER"
  125. 866 [153]" (null)EGE.(null)UN MACHTE SICH DER (null)RINZ AUF"
  126. 868 [153]" DEN (null)EG IN (null)ICHTUNG (null)URM."
  127. 869 [153]" (null)AUM DORT ANGEKOMMEN,SAH ER SICH EINEM"
  128. 870 [153]" MEHRERE (null)ETER LANGEN GOLDBLONDEN (null)RO-
  129. 871 PRINT" BLEM GEGENUEBERGESTELLT.[210]APUNZEL HATTE"
  130. 872 PRINT" IN [197]RWARTUNG DES [208]RINZEN BEREITS IHR"
  131. 873 PRINT" GUELDEN [200]AAR AUS DEM [198]ENSTER GEWORFEN"
  132. 874 PRINT" UND HAARTE (PARDON:HARRTE) DER [196]INGE,"
  133. 875 PRINT" DIE DA KOMMEN MOCHTEN.[199]LUECKLICHER-"
  134. 876 PRINT" WEISE IST EIN [198]LOH JA AUCH EIN [198]ACH-"
  135. 877 PRINT" MANN IN [194]EZUG AUF [200]AARE UND SEHR BE-"
  136. 878 PRINT" GABT IM [203]LETTERN.[197]R MACHTE SICH ALSO"
  137. 879 PRINT" AN DEN [193]UFSTIEG.[145]":GOSUB13
  138. 880 PRINT"[147]":GOSUB10
  139. 881 PRINT" [196]OCH WAS ER VORHER ALS [208]RINZ NIE GE-"
  140. 882 PRINT" MERKT HATTE,KONNTE JETZT SEIN [214]ER-"
  141. 883 PRINT" HAENGNIS WERDEN.[196]URCH DIE STAENDIGEN"
  142. 884 PRINT" [211]TRAPAZEN, DIE [210]APUNZELS [200]AAR IM [204]AUF"
  143. 885 PRINT" DER [218]EIT MITGEMACHT HATTE, WAR [200]AAR-"
  144. 886 PRINT" SPLISS ENTSTANDEN. [213]ND SO BESTAND NUN"
  145. 887 PRINT" DIE [193]UFGABE (UND DAMIT AUCH [201]HRE)"
  146. 888 PRINT" DES UNGLUECKLICHEN [198]LOHS DARIN,SICH"
  147. 889 PRINT" IN DIESES [199]EWIRR NACH OBEN DURCHZU-"
  148. 890 PRINT" ARBEITEN.[196]ENN ZU SEINER [210]APUNZEL WOLL-"
  149. 891 PRINT" AUCH ALS [198]LOHPRINZ GELANGEN.":GOSUB13
  150. 900 PRINT"[147]":GOSUB10
  151. 901 PRINT" [211][208][201][197][204][197][210][203][204][193][197][210][213][206][199]"
  152. 902 PRINT" MIT DEN [195]URSOR-[212]ASTEN WIRD DER [198]LOH-"
  153. 903 PRINT" [208]RINZ BEWEGT."
  154. 904 PRINT" [211]HIFT + [195]URSUR LINKS  = [144]NACH UNTEN"
  155. 905 PRINT" [211]HIFT + [195]URSOR RECHTS = [144]NACH RECHTS"
  156. 906 PRINT"         [195]URSOR LINKS  = [144]NACH OBEN"
  157. 907 PRINT"         [195]URSOR RECHTS = [144]NACH LINKS"
  158. 908 PRINT" [197]S IST IHRE [193]UFGABE, EINEN DER [218]IEL-"
  159. 909 PRINT" PUNKTE (OBEN) ZU ERREICHEN.[196]ANN KOEN-"
  160. 910 PRINT" NEN [211]IE SICH IN DIE [193]RME VON [210]APUNZEL"
  161. 911 PRINT" LEGEN.[215]IE OFT [211]IE KLETTERN WOLLEN"
  162. 912 PRINT" ([193]NZAHL DER [194]ILDER), KOENNEN [211]IE JETZT"
  163. 913 PRINT" GLEICH SELBST BESTIMMEN."
  164. 914 PRINT" *[144]  = [211]IE GEBEN VORHER AUF[145]":GOSUB13:GOTO830
  165. 920 PRINT"[147][156]"CHR$(142):POKE53280,0:POKE53281,0
  166. 921 PRINT"[158]@@@@[156] [158]@@@@[156] [158]@@@@[156] [158]@[156]  [158]@[156] [158]@@@@[156] [158]@@@[156]   [158]@@@@[156] [158]@[156]
  167. 922 [153]"SYS@CLR  SYS@CLR SYS@CLR  SYS@CLR SYS@CLR  SYS@CLR SYS@CLR  SYS@CLR SYS@CLR  SYS@CLR   SYS@CLR   SYS@CLR    SYS@CLR
  168. 923 PRINT"[158]@[156]  [158]@[156] [158]@[156]  [158]@[156] [158]@[156]  [158]@[156] [158]@[156]  [158]@[156] [158]@[156]  [1